home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / wndwc20.zip / EX9.C < prev    next >
Text File  |  1989-03-06  |  2KB  |  48 lines
  1. /*     EXAMPLE 9:  Window-relative writing routines
  2.      ----------------------------------------------------------------------*/
  3.      #include <stdio.h>
  4.      #include <conio.h>
  5.      #include "wndwc20.h"
  6.  
  7.      char *s1,*s2,*s3,s4[80];
  8.      int r1,r2;
  9.      char ch;
  10.  
  11.      void main()
  12.      {
  13.          qinit();
  14.          initwindow( LIGHTGRAY_BG, 1, 0 );
  15.          makewindow( 5, 20, 15, 40, WHITE+BLUE_BG, CYAN+BLUE_BG,
  16.                      SINGLE_BORDER, WINDOW1 );
  17.          s1 = " a:\\long\\long\\filename";
  18.          s2 = " a:\\shorter\\filename";
  19.          s3 = " error message";
  20.          r1 = 1;
  21.          r2 = 14330;
  22.          wwrite    ( 2, 2, "File name: " );
  23.          wclreos   ( LIGHTGRAY_BG );            /* Clear first field */
  24.          qwriteeos ( SAMEATTR, s1 );            /* Put in file name */
  25.          wwrite    ( 3, 2, "Status" );
  26.          wclrfield ( 3, 13, 20, LIGHTGRAY_BG ); /* Clear second field */
  27.          qwriteeos ( SAMEATTR, s3 );            /* Put in status message */
  28.          wwrite    ( 4, 2, "Quantity:  " );
  29.          wclrfieldeos( 20, LIGHTGRAY_BG );      /* Clear third field */
  30.          sprintf( s4, "%19d", r1 );             /* Put in formatted data */
  31.          qwriteeos( SAMEATTR, s4 );
  32.          eostorcrel( 0, -1 );                   /* Shift EOS back one space */
  33.          wgotoeos();
  34.          titlewindow( BOTTOM, CENTER, YELLOW+BLUE_BG+BLINK,
  35.                       " Press any key " );
  36.          while(getch() == 0);
  37.          wclrtitle( BOTTOM );
  38.          tws.wndwattr = SAMEATTR;      /* Keeps field attributes intact */
  39.          wwrite  ( 2, 13, s2 );
  40.          wclreos ( SAMEATTR );         /* Clears remainder of long filename */
  41.          wclreol ( 3, 13, SAMEATTR );  /* Clears beyond field, But A OK! */
  42.          sprintf ( s4, "%19d", r2 );
  43.          wwrite  ( 4, 13, s4 );        /* Overwrites new data */
  44.          tws.wndwattr = tws.origattr;  /* Restore window attribute */
  45.          getch();
  46.      }
  47.  
  48.